home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
pctjja86.arc
/
SPEED1.PRO
< prev
next >
Wrap
Text File
|
1985-11-13
|
151b
|
7 lines
/* Speed test with a one-rule rule base */
test(X) :- Y is X-1,
Y > 0,
test(Y).
?- nl,nl,write('Starting...'),test(1000).